home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ Win Border Width.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  45 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="1"
  3. "COUNT"="1"
  4. "UIPATH"="Appearance\Interface\Effects"
  5. "NAME"="Window Border Width"
  6. "VERSION"="3.01"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Border Width"
  9. "DESCRIPTION 1"="You can use this setting to specify the width of the border (in pixels) around every window."
  10. "DESCRIPTION 2"="The smallest size is 1 (also default) and the maximum is 49. Some systems report -15 or -12 as default, but any value below 0 is normally ignored by the Windows UI."
  11. "DESCRIPTION 3"="NOTE: If you have changed the value to 1 and an additional border appears around the entire screen, your graphic-card drives has an bug. To revert this, change the value back to -15." 
  12. "AUTHOR"="Xteq Systems"
  13. "CONTACTURL"="http://www.xteq.com"
  14. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  15. "COMMENT 1"="Thanks to Nikkie & Luuc from Virtual Plastic (http://www.nikkie-luuc.demon.nl/) for the bug fix!"
  16.  
  17. sP="HKCU\Control Panel\Desktop\WindowMetrics\BorderWidth"
  18.  
  19. 'Called when the Plugin is started
  20. SUB Plugin_Initialize
  21.  i=RegReadValue(sP)
  22.  if IsEmpty(i)=true then
  23.     Call SetUIElement(1,1)   
  24.  else
  25.     Call SetUIElement(1,i)
  26.  end if
  27. END SUB
  28.  
  29.  
  30. 'Called when the Plugin should apply the changes
  31. SUB Plugin_Apply(ElementIndex,ElementSubIndex)
  32.  i=GetUIElement(1)
  33.  If IsNumeric(i) then
  34.     Call RegWriteValue(sP,i,1)
  35.     Call Logoff
  36.  else
  37.     Call MsgError("Please enter a numeric value!")
  38.  end if
  39.  
  40. END SUB
  41.  
  42. 'Called when the Plugin is about to be removed from memory
  43. SUB Plugin_Terminate
  44. END SUB
  45.